EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 
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SSSSSSSS LLLLLLLLLL UUUUUUUUUU BBBBBBBB cece 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LLLLLLLLLL 
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REQUIRE file for Logical Unit Block (LUB) 
File: OTSLUB.SDL Edit: MDL2005 


ARRAS AASALAALAALALCSALSAALALALAAALARAAALASASSSSLASL EASA SARS AS SALAS LASSE A LE SY 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


* 

* 

® ® 
* ca 
® ® 
? ® 
* THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. * 
w ® 
+ THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
: CORPORATION. ‘ 
® ® 
® ® 
e *® 
® ® 
© * 
* ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PARR AAARAASAALALASLALAREASAAE RARE AARARARSASASALESESES EA RARARAAR RR AAR ASA SAR ES SE 


Author: T. mast sage 

Change history: 

[Previous edit “history removed. SBL 24-Au tte A 

1- - Give LUBSA_ASSOC_VAR another name LUBSL_A this is to hold the 
allocation quantity for files in BASIC. “fh "f-betet 1980 

Add a flag to request ANSI processing. PLL 22-Jul-1982 

Convert to SDL. SBL 24-Aug-1982 

Don't depend on names for sub-structures. SBL 29-Sep-1982 
Change aggregate name to LUB for better fieldset name. SBL 26-Oct-1982 
Add fields for RFA coche ing, SBL 2-June-1 

add field to indicate FIELDing. MDL 29-Mar-1984 


ronsnonsny 
seteene 


+ 

The LUB contains OTS OWN data associated with a 

articular logical unit which is needed between 1/0 statements. 
N data which is needed for several calls within a single 

/O statement is allocated in the 1/0 Statement Block (ISB). 

ata which is needed during a single call is always LOCAL. 
UB 


definition (-11 OTS equivalents are indicated in parens) 


bols are of the form: LUBSt_symbol where t is 


{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{- 
{ 
{ 
{ 
{ 
{ 
{ Sym 
{ A,B,W.L.T.or V. 


{- 


MODULE S$LUBDEF ; 
AGGREGATE LUB § TRUC TURE PREFIX LUB$ ORIGIN end_of_lub; 


{+ 
{ Define some constants that are used to set the organization field of the LUS 


— 
+ _ 
nm wT EB om ow 


3 
a 
o 
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{- 


CONSTANT ( 
ORG_SEQUE, Organization sequential 
ORG_RELAT, Organization relative 
ORG_INDEX, Organization indexed sequential 
ORG_TERMI, Organization terminal format 
GVIRTU { Organization virtual 
) EGUALS 1 INCREMENT 1; 


{+ 
: Define the symbols for the special LUNs with negative numbers. 


CONSTANT ( 

LUN_BPRI, { Logical unit for BASIC PRINT 

LUN_INPU, { Logical unit no. for BASIC INPUT 

LUN_BREAD, { Logical unit for BASIC READ 

LUN_ENCD, { Logical unit for FORTRAN ENCODE/DECODE 

LUN_READ, { Logical unit no. for FORTRAN READ 

LUN_ACCE, { Logical unit no. for FORTRAN ACCEPT 

LUN_TYPE, { Logical unit no. for FORTRAN TYPE 

LUN_PRIN { bop ices unit no. for FORTRAN PRINT 

) EQUALS -8 INCREMENT 1; 
CONSTANT ILUN_MIN EQUALS LUBSK_LUN_BPRI; { Min LUN (for LUN table) 
CONSTANT DLUN_MIN EQUALS LUBSK_LUN_READ; { Min default-OPEN LUN for FORTRAN 
CONSTANT DLUN_MAX EQUALS LUBSK_LUN_PRIN; { Max default-OPEN LUN for FORTRAN 
CONSTANT LUN_AIN EQUALS 0; { Min. explicit FORTRAN OPEN LUN 

{ BASIC Limit is .GT. this. 

CONSTANT LUN_MAX EQUALS 119; { Max. explicit or implicit LUN 


{+ 

{ Define a symbol for the default value of the right margin. This value 

t is used only by BASIC. 

CONSTANT D_MARGIN EQUALS 72; { default right margin for files 
{+ 

{ Define a symbol for the maximum Length of the prompt buffer. 


{ This much space is allocated whenever a sequential file is opened 
: in case we are to prompt for input from it. 


CONSTANT PBUF_SIZ EQUALS 80; { Size of prompt buffer 


{+ 
; Lay out the storage of the LUB 


CONSTANT NEG_BLN EQUALS . ; { define negative length of LUB 
UBF ADDRESS; { RMS User Buffer. 
union_1 UNION; 


IT_STT3 WORD UNSIGNED; { more flags 
UNIT_STTS_STRUCT STRUCTURE; 


OTSLUB.SDL;1 16*SEP=1984 16:41:41. ° bs Page 3 
NOECHO BITFIELD; 
ONECHR BITFIELD; 
CCO BITFIELD; 
FIND_LAST BITFIELD; 
PTA BITFIELD; 
AST_GUARD BITFIELD; 


If the BASIC function oe has been done. 
(applies to terminals o hed 
If the BASIC function ONE HR has been done 
(applies to terminals on 
Cancel control 0 (BASIC function RCTRLO) 
(applies to terminals only) 
f Last direct operation was FIND 

(FORTRAN direct access) 
Purge type ahead 

panes tes to terminals only) 

BAS=new) Used in 1/0 elenent transmit 


{ 
, ov 
ct 
} 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
c 
{ 
{ 
L 


to detect concurrence of ASTs using the 
1/0 data base. If concurrence is detected 
then the routine is repeated. 

CR BITFIELD; 1 if FABSV_CR is set. (FORTRAN) 

FIN BITFIELD; 1_if FABSV_FTN is set. (FORTRAN) 

PON BITFIELD; (BAS-new) =1, PRN format and semantics for 
Basic stream files. 
1_if FABSV_PRN is set. (FORTRAN) 

NOMARGIN BITFIELD; (BAS-new) =1, the right margin for terminal 
format files is infinite 

USEROPEN BITFIELD; 1 if file qoenee with USEROPEN 

NOTSEQORG BITFIELD; 1 if file is not eeepreatien organization. 
Used by FORTRAN 

ANSI BITFIELD; 1 if ANSI INPUT 

RFA_CACHE_ENABLE BITFIELD; 1 if RFA cacheing enabled (FORTRAN) 

ECD_USE BITFIELD; 1 if FIELD stmt on this ch. (BASIC) - 
fill_T BITFIELD LENGTH 1 FILL TAG $$; { This many bits remain in this status word 
END ONIT_STT3_STRUCT; 
END union_1; 
BLS WORD UNSIGNED; { Mag tape block size, from FABSW_BLS 


{ 
{ The —— address, ay ener tere. points to a routine to be called 
{ just before the LUB is CLOSEd. This is used by the BASIC File Array 
¢. support to write out he” last buffer. 


CLOSE ADDRESS; { Call here on CLOSE 
{ 
{ The following syetvere is used to Link the LUB to the LUB table 
: maintained by OTSCCB. 
QUEUE QUADWORD UNSIGNED; { Link for INSQUE and REMQUE instructions 


{ 
{ LUB Locations used by all User Data Formatted (UDF) Level Procedures 
i which are: FORSSUDF "ER WCF ,U,L> and BASSSUDF_{RW)_L 


BUF _PTR ADDRESS; { (FOR-BLBUF) Adr. of next byte in buffer to be 
{ filled or emptied with user data 
BUF _END ADDRESS; { (FOR-EOLBUF) Adr.+1 of Last byte in buffer 
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{ to be filled or emptied with user data. 


This is the buddy pointer for BASIC 1/0. For all _units except 0, it 
ey oint to itself. For unit 0, the Print CCB will point to the 


+ 


nput CCB and vice versa 


AAA 


BUDDY_PTR ADDRESS; { — to the complementary CCB for Print and 
{ Input. Needed for recursive and continued 1/0 


{ 
{ LUB Locations used solely by the input or output dependent 
t Formatted User Data Formatters . 


BUF __BEG ADDRESS; 


; FOR-LNBUF) Adr. of first byte in buffer (FOR-used 
BUF __HIGH ADDRESS; ; 
{ 


( 
for T format). 

(FOR=TSPECP) Adr. of highest byte filled in 
buffer during format gtccnty di (FOR=-needed 
because Tn format can move backwards). 


+ 


LUB locations set by OPEN, default OPEN, CALL FDBSET, or 
DEFINE FILE, and checked on every 1/0 statement 


AAA 


ORGAN BYTE UNSIGNED; (BAS-IF .BLK-IF.TRF) File organization: 
virtual block, sequential, relative, indexed 
sequential or terminal format. 

Bucket size, from FABSB_BKS 

Logical unit number (0:99) 

Note: stores! Negative LUNS used for: 

INPUT and PRINT 


(BAS-POSITN) printhead position — 

PRINT statements ay end in a semicolon or 

a comma requiring the printhead position to 
be maintained to the next PRINT statement. — 
This is a longword because the longest string 
(65K) ney be put in the longest buffer (65K). 
First allocated byte of RFA cache (FOR) 


BKS BYTE UNSIGNED; 
LUN WORD; 


union_1A UNION FILL; 
PRINT_POS LONGWORD UNSIGNED; 


PAASAAAA AAAS 


END un 
union_1B UNION FILL; 
WAIT_TIME LONGWORD UNSIGNED; 
RFA_TACHE_PTR ADDRESS; 
END union_1B; 
IF1 WORD UNSIGNED; 


RBUF _SIZE WORD UNSIGNED; 


(BAS-WATIM) Wait time for a WAIT operati 
Pointer to current RFA cache entry (FOR) 


RMS internal file id, needed 
until OSE 
Record buffer size in bytes 
Set by OPEN, default open, or DEFINE FILE. 
o allocate record buffer at open. 
Read by record level of abstraction 
FORSSREC_ {R,WI{F,U.L> 
(BAS-new) the right margin for : 
a terminal format file. The default is 
72 for terminal format files, set to terminal 


on 


R_MARGIN WORD UNSIGNED; 


PAX QGAAGAAAAA AMS 
c 
w 
o 
a 
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D_MARGIN WORD UNSIGNED; 


LANGUAGE BYTE UNSIGNED; 

CONSTANT LANG MIN EQUALS 0; 
CONSTANT LANG_NONE EQUALS 0; 
CONSTANT LANG_BAS EQUALS 1; 
CONSTANT LANG_FOR EQUALS $3 
CONSTANT LANG_MAX EQUALS 2; 


RFM “x UNSIGNED; 


union_2 UNION; 
BAS_VFC WORD UNSIGNED; 


BAS_VFC_STRUCT STRUCTURE; 
“BAS_V 


FC] BYTE UNSIGNED; 
BAS “VEE C2 BYTE UNSIGNED: 


END BAS _VFC_STRUCT; 
END union_2; 


union_3 UNION; 
ASSot VAR ADDRESS; 


ALQ av mag UNSIGNED; 
END union_ 


LOG_RECNO LONGWORD UNSIGNED; 


REC_MAX LONGWORD UNSIGNED; 


FAB ADDRESS; 


RBUF __ADR ADDRESS; 


DID WORD UNSIGNED DIMENSION 3; 
RAT BYTE UNSIGNED; 

RSL are UNSIGNED: 

RSN ADDRESS; 


union_4 UNION; 
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width otherwise. Not the same as | 

buffer size because of embedded carriage con- 
trol characters. For terminal format files, 
when the aucoer © nediahenn exceeds this value 
the record is 

Default right nie. 


ive language that opened the LUN, as follows: 
Minimum Language code 

None (proba a not * ge: yet) 

VAX=-11 PBASIC= 

VAX=11 PORTRANGLV “bus 

Maximum Language code 


Record format, from FABSB_RFM 


(BAS-new) fixed control block for carriage control 
This is petates to by the RAB so it is a part 

of the RMS interface. As a result, it is only 
written to by the REC level. 


overlay first 7 of VFC 
overlay second byte of VFC 


ASA AAA A AAAAAA  AAAAAS 


Adr. of ASSOCIATEVARIABLE or 0 if none 
Set by OPEN or DEFINEFIL 
LUBSV_ASS_VAR_L cosa} hice “word/Longword 


Allocation quantity for files, also used in assoc_var 


a AAG 


current or next Logical (or segmented) 
record number for sequential access files 
(needed for BACKSPACE of segmented recerde} Current or next 
record number for 
FORTRAN direct eeceel files (O=1=first record) 
Direct access maximum record number 
(RMS doesn't keep for preyeet'e) orgentent ten 
iles). Set ‘ DEFINE FILE or 
ddress of FAB allocated by CAL L ASSIGN, 
ALL FDBSET, DEFINEFILE or OP 

ae age “rDBSET. DEFINEF ILE or 


TE: This. field cannot move from an offset 

-24 due to Fortran compatibility routines 

-, 7 n arces of recore buffer (includes 

y F information kept in the record) 

ree co to pole oregstery TP io. *r. OPEN 

e record attributes, from 

ze of resultant name string. rie oa “string allocated) 
dress of resultant name string 


PAX AAAAAAAAAAAAASAN 
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UNIT_ATTR WORD UNSIGNED; 


UNIT_ATTR_STRU velee 


RUCTURE ; 
OPENED BIT 


ST 
ELD; 
IO_ACTIVE BITFIELD; 
READ_ONLY BITFIELD; 


OLD_FILE BITFIELD; 


DIRECT BITFIELD; 


SCRATCH BITFIELD; 
DELETE BITFIELD; 


PRINT BITFIELD; 
FORMATTED BITFIELD; 


UNFORMAT BITFIELD; 


FIXED BITFIELD; 


SEGMENTED BITFIELD; 


PVA AAA AAO AAA OA AAA AOA AAA OAAAAA AAAI AAA AAA 
~~ 
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(FOR“D.STAT) Unit attribute bits which are 
needed between 1/0 statements. 

NOTE: Some of these bits are in fixed 
positions as noted. 


(FOR=DV.OPN) LUB has been puccessfully 
erence by OPEN or default OPEN. 

Cleared by CLOSE or error during OPEN 
NOTE: cannot be moved from offset -4,0 due 
to Fortran compatibili “Bs 
(FOR=-) An 1/0 statemen 8 active on 

this logical unit. Set to 0 on an error 

or end of 1/0 List. Used t¢ _procemn recursive 
1/0 on the same Logical uni 

(FOR-DV.RDO) No writes wit (can) be 

done to this file. 

Set by CALL FDBSET or OPEN "READONLY'. 

NOTE: cannot be move en offset -4, 2 due 

to Fortran cones bi aT: 

(FOR=DV.OLD) Old a He, ng? file , Ryeunene do 
been tor ee Set by TYPE="0 

NOTE: Pa “be moved from offset -4,3 due to 


tibility. 
(FORSDV.5FDS FORTRAN direct access file. 
Set by ACCESS="DIRECT' or DEFINEFILE. 
Note: this bit is independent of RMS 
file organization (Sequential or Relative). 
Can not be es “¥- from -4,4 unless 


$10_ modi fie 
(FOR=DV-SCR) TYPES'SCRATCH' 5 ecified. 
(FOR-DV.DEL) OPEN DISP= "DELETE: epec tiied. 
Checked at CLOSE 
(FOR-DV. SPL) OPEN DISPOSE="PRINT’ causes 
s ool ing. pa] CLOSE. 
(FOR-DV.FMP) File. is FORTRAN formatted. 
OPEN FORM="FORMA TTED 
0 = unspecified. 
NOTE: Can not be moved from -4,8 unless 
FORSSIO -BEG is modified. 
(FOR=DV-UFP) File is FORTRAN unformatted. 
0 = uns oh Ray Set by DEFINE ris or OPEN. 
Note: L Bsv_ FORMATTED a LUBSV_UNF ORMAT 
can both be 0 on default OPEN done for 
END FILE since the format may be either. 
Can not be moved from -4,9 unless 
FORSS$IO_BEG is modified. 
FOR=--) 1 = Record format is RMS fixed (FLR). 
PEN RECORDTYPES'F XED' 

Record format ie verisble 
(VLR or VLRM, i.e. Relative 
Organizes on file. OPEN’ RECORDTYPE= "VARIABLE * 

FUR=-) Segmented pustorpeties: records are 
to be used. Otherwise only 
record (VLR or FLR) is to Sy rend or 
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gnented c control info. 

NTED PEN or TYPE not specified 
matted. file. 

TATEVARIABLE is a lLongword 
“- My a word or not 


See tu UBSA ASSOC_VAR 
-APD) File. was opened ACCESS = ‘APPEND’ 
used as state bit (LOG_RECNO is undefined) 
E: cannot 3 opree from offset -4,13 due to 
tran compatibil Ry 
: ‘ACCESSE*Setuen IAL’ (FORTRAN) 
: Can not x? ved from -4,1 
oss roresio.e Gis modi tied. 
f ACCESS= KEYED" (FORTRAN) 
e: 
e 


a 
E 


no se 

*SEGM 

lL _unfor 

ASS_VAR_L BITFIELD; ASSOC 
gl fo 3 
y_0 


Ce Be ben ee 


APPEND BITFIELD; 


SEQUENTIA BITFIELD; 


KEYED BITFIELD; 


30o0UC«CdUM WlCiC NW Oe MGS 


Can not be moved from -4,15 
ss FORS$$IO "BEG 1s modified. 


POG OO OA AA AAA AAAAA 
c2—c 2—"Zoe -—V00 O--. +2 


END UNIT_ATTR_STRUCT; 
END union_4;~ 


DEFINEFILE, and checked on every 1/0 statement 


union_5 UNION; 
UNIT_STT2 WORD UNSIGNED; 
UNtT -315 STRUCT STRUCTURE; 
VIRT_RSN BITFIELD; 


ENDFILOPN BITFIELD; 


{ 
i. Bits set by OPEN,default OPEN, CALL FDBSET,or 
{ 


Second word of bits 


indicates that RSN points to dynamic memory 

not local storage 

File was implicitly opened to do ENDFILE 

When first 1/0 is done, there are a few 

Cotout ts which will be specified: 

LUBSV_FORMATTED or LUBSV_UNFORMAT 

LUBSV~ SEGMEN 

hen coesy ENDFIL_OPN is cleared. 

(BAS-new) tne last Re element transmitter ended 


olon 
(BAS-IF WRT) “the. PRINT butter le has 
something in it and poke 5 spb G 
before continuing. Set by Bese WRITE 
ed + ae sane eyes e by BASIC Filé Array support 


{ 
{ 
{ 
{ 
FORM_CHAR BITFIELD; f 
t Us 
TERM_FOR BITFIELD; 2 - rene’ as terminal format file on any unit including 0 


OUTBUF_DR BITFIELD; 


get ' » a aren info from user. = 1, term- 
na 

TERM_DEV BITFIELD; (BAS-IF. rrRn) terminal device on any | unit including 0 
set by OPEN N info from RMS. = 1, te 

na 

(BAS-IF. FRO) forcible device on any unit including 0 
Set by OPEN info from RMS. = 1, term- 

inal or Line printer device 
(BAS-new?) terminal device - unit 0 

fet by Pela t OPEN for PRINT and INPUT 
virtual array. Once uses as virtual, 

cannot be used for block 0. 

(BAS-BIO) Marks a file's first use as block 


FORCIBLE BITFIELD; 


UNIT_O BITFIELD; 


VA_USE BITFIELD; VIR) marks a files first usage es a 


BLK_USE BITFIELD; 
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used for virtua e 
M_STREAM BITFIELD; (BAS-IF.CON) File is multistream connected. 


1/0. Once used 89 block 1/0 , it cannot be 
M~STR_C BITFIELD; 


File is (or was) connected to. 


{+ 
{ The following bit is set by CLOSE to indicate that the LUB should be 
{ deallocated as soon as all recursive or nested 1/0 on it has 
{ completed. It is cleared (in effect) by OTSSSPOP_CCB deallocating the 
{ storage. While it is set the LUN may not be OPEN@d since there is 
¢ 1/0 outstanding which should be allowed to fail. 
DEALLOC BITFIELD; Can deallocate this LUB 
SUBMIT BITFIELD; FORTRAN DISP="SUBMIT’ if set. 
NULLBLNK BITFIELD; FORTRAN BLANK="ZERO' if clear, 
BLANK="NULL' if set. 
USER_RBUF BITFIELD; If 1, the record buffer was allocated 
{ by the user, don't deallocate it at 
{ CLOSE time. 
END UNIT_STT2_STRUCT; 
END union_5; 
CONSTANT LUB_LEN EQUALS :; { Length of LUB 
end_of_ lub BYTE FILL TAG $$; 
END LUB; 


END_MODULE SLUBDEF ; 
{ End of file OTSLUB.SDL 


A505 AH-BT13A-SE "DIGITAL EQUIPMENT CORPORATION 
NEVE VAX/VMS V4.0 CONFIDENTIAL 


AND PROPRIETARY 


